home *** CD-ROM | disk | FTP | other *** search
/ An Invitation to the Roland World of Music / Roland - An Invitation To The Roland World Of Music.bin / vb / cooltool / midimixr / midiset.frm < prev    next >
Text File  |  1995-04-20  |  3KB  |  115 lines
  1. VERSION 2.00
  2. Begin Form MIDISetupForm 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "MIDI Setup"
  6.    ClientHeight    =   1200
  7.    ClientLeft      =   1095
  8.    ClientTop       =   1485
  9.    ClientWidth     =   6315
  10.    ControlBox      =   0   'False
  11.    Height          =   1605
  12.    Left            =   1035
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    ScaleHeight     =   1200
  16.    ScaleWidth      =   6315
  17.    Top             =   1140
  18.    Width           =   6435
  19.    Begin CommandButton CmdCancel 
  20.       Caption         =   "Cancel"
  21.       Height          =   375
  22.       Left            =   5010
  23.       TabIndex        =   5
  24.       Top             =   690
  25.       Width           =   1005
  26.    End
  27.    Begin CommandButton CmdOk 
  28.       Caption         =   "Ok"
  29.       Height          =   375
  30.       Left            =   5010
  31.       TabIndex        =   4
  32.       Top             =   240
  33.       Width           =   1005
  34.    End
  35.    Begin ComboBox ComboMidiOut 
  36.       Height          =   300
  37.       Left            =   2460
  38.       Style           =   2  'Dropdown List
  39.       TabIndex        =   1
  40.       Top             =   540
  41.       Width           =   2265
  42.    End
  43.    Begin ComboBox ComboMidiIn 
  44.       Height          =   300
  45.       Left            =   120
  46.       Style           =   2  'Dropdown List
  47.       TabIndex        =   0
  48.       Top             =   540
  49.       Width           =   2265
  50.    End
  51.    Begin Label Label2 
  52.       BackColor       =   &H00C0C0C0&
  53.       Caption         =   "MIDI Out Device"
  54.       Height          =   255
  55.       Left            =   2490
  56.       TabIndex        =   3
  57.       Top             =   240
  58.       Width           =   2025
  59.    End
  60.    Begin Label Label1 
  61.       BackColor       =   &H00C0C0C0&
  62.       Caption         =   "MIDI In Device"
  63.       Height          =   255
  64.       Left            =   150
  65.       TabIndex        =   2
  66.       Top             =   240
  67.       Width           =   2115
  68.    End
  69. End
  70.  
  71. Sub CmdCancel_Click ()
  72.     Unload MidiSetupForm
  73. End Sub
  74.  
  75. Sub CmdOk_Click ()
  76.     MIDIInOpen
  77.     MIDIOutOpen
  78.     MidiSetupForm.Hide
  79. End Sub
  80.  
  81. Sub Form_Load ()
  82.     ' Center the form on the screen
  83.     'Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2
  84.  
  85.     '
  86.     ' Fill output device combo box
  87.     '
  88.     For i = -1 To FormMidiMixr.MIDIOutput1.DeviceCount - 1
  89.         FormMidiMixr.MIDIOutput1.DeviceID = i
  90.         ComboMidiOut.AddItem FormMidiMixr.MIDIOutput1.ProductName
  91.     Next
  92.     '
  93.     ' Select first in list
  94.     '
  95.     ComboMidiOut.ListIndex = 0
  96.     FormMidiMixr.MIDIOutput1.DeviceID = -1
  97.     MIDIOutOpen
  98.  
  99.     '
  100.     ' Fill input device combo box
  101.     '
  102.     For i = 0 To FormMidiMixr.MIDIInput1.DeviceCount - 1
  103.         FormMidiMixr.MIDIInput1.DeviceID = i
  104.         ComboMidiIn.AddItem FormMidiMixr.MIDIInput1.ProductName
  105.     Next
  106.     '
  107.     ' Select first in list
  108.     '
  109.     ComboMidiIn.ListIndex = 0
  110.     FormMidiMixr.MIDIInput1.DeviceID = 0
  111.     MIDIInOpen
  112.  
  113. End Sub
  114.  
  115.